home *** CD-ROM | disk | FTP | other *** search
/ El Mac 1 / Magazine.iso / EL MAC 1 / Infotenimiento / Rednex / SHARED.DIR / 00844.ls < prev    next >
Encoding:
Text File  |  1995-08-23  |  1.3 KB  |  64 lines
  1. on keyDown
  2.   global vtrans, Vljud, Vcursors
  3.   put vtrans
  4.   if the key = "1" then
  5.     set the soundLevel to 1
  6.   else
  7.     if the key = "2" then
  8.       set the soundLevel to 2
  9.     else
  10.       if the key = "3" then
  11.         set the soundLevel to 3
  12.       else
  13.         if the key = "4" then
  14.           set the soundLevel to 4
  15.         else
  16.           if the key = "5" then
  17.             set the soundLevel to 5
  18.           else
  19.             if the key = "6" then
  20.               set the soundLevel to 6
  21.             else
  22.               if the key = "7" then
  23.                 set the soundLevel to 7
  24.               else
  25.                 if the key = "9" then
  26.                   set Vcursors to 1
  27.                 else
  28.                   if the key = "8" then
  29.                     set Vcursors to 0
  30.                   end if
  31.                 end if
  32.               end if
  33.             end if
  34.           end if
  35.         end if
  36.       end if
  37.     end if
  38.   end if
  39. end
  40.  
  41. on ljudner
  42.   if the machineType = 256 then
  43.     puppetSound(0)
  44.     exit
  45.   else
  46.     repeat while the volume of sound 1 > 0
  47.       set the volume of sound 1 to the volume of sound 1 - 25
  48.       wait(3)
  49.     end repeat
  50.     puppetSound(0)
  51.   end if
  52. end
  53.  
  54. on ljudup
  55.   if the machineType = 256 then
  56.     exit
  57.   else
  58.     repeat while the volume of sound 1 < 255
  59.       set the volume of sound 1 to the volume of sound 1 + 25
  60.       wait(2)
  61.     end repeat
  62.   end if
  63. end
  64.